home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
dsystem
/
move.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
2KB
|
88 lines
10000 '
10010 ' 移動時パッドスキャンモジュール
10020 '
10030 ' MOVE.BAS
10040 '
10050 *パッドスキャン
10060 '
10070 WAIT WA:P=PAD(1):PT=PTRIG(1)
10080 IF P=0 AND PT=0 THEN *パッドスキャン
10090 IF P<>1 AND P<>3 AND P<>5 AND P<>7 AND PT<>1 AND PT<>4 THEN *パッドスキャン
10100 IF PT=4 THEN CHAIN "CAMP.BAS",,ALL
10110 '
10120 ' Aボタン前進処理
10130 '
10140 'IF PT=1 THEN
10150 ' IF K=2 THEN
10160 ' IF H=1 THEN Y=Y-1
10170 ' IF H=2 THEN X=X+1
10180 ' IF H=3 THEN Y=Y+1
10190 ' IF H=4 THEN X=X-1
10200 ' ELSE
10210 ' GOTO 10010
10220 ' ENDIF
10230 'ENDIF
10240 '
10250 ' 前進処理
10260 '
10270 IF P=1 THEN
10280 IF AHEAD_K=1 THEN GOSUB *壁に激突:GOTO *パッドスキャン
10290 IF H=1 THEN Y=Y-1
10300 IF H=2 THEN X=X+1
10310 IF H=3 THEN Y=Y+1
10320 IF H=4 THEN X=X-1
10330 ENDIF
10340 IF P=5 THEN
10350 IF REAR_K=1 THEN GOSUB *壁に激突:GOTO *パッドスキャン
10360 IF H=1 THEN Y=Y+1
10370 IF H=2 THEN X=X-1
10380 IF H=3 THEN Y=Y-1
10390 IF H=4 THEN X=X+1
10400 ENDIF
10410 '
10420 ' 右折/右カニ/左折/左カニ処理
10430 '
10440 IF P=3 THEN
10450 IF PT=2 THEN
10460 IF RIGHT_K=1 THEN GOSUB *壁に激突:GOTO *パッドスキャン
10470 IF H=1 THEN X=X+1
10480 IF H=2 THEN Y=Y+1
10490 IF H=3 THEN X=X-1
10500 IF H=4 THEN Y=Y-1
10510 ENDIF
10520 IF PT=0 THEN
10530 H=H+1
10540 ENDIF
10550 ENDIF
10560 IF P=7 THEN
10570 IF PT=2 THEN
10580 IF LEFT_K=1 THEN GOSUB *壁に激突:GOTO *パッドスキャン
10590 IF H=1 THEN X=X-1
10600 IF H=2 THEN Y=Y-1
10610 IF H=3 THEN X=X+1
10620 IF H=4 THEN Y=Y+1
10630 ENDIF
10640 IF PT=0 THEN
10650 H=H+3
10660 ENDIF
10670 ENDIF
10680 '
10690 ' H のトラップ
10700 '
10710 IF H>=5 THEN H=H-4
10720 '
10730 GOSUB *HP回復処理
10740 CHAIN "DRAW_FLS.BAS",,ALL
10750 *壁に激突
10760 BEEP
10770 RETURN
10780 '
10790 *HP回復処理
10800 '
10810 FOR L=1 TO 6
10820 IF INT(RND(1)*6)+1+INT(RND(1)*6)+1=7 THEN
10830 IF HP(L)<MHP(L) THEN HP(L)=HP(L)+SEIM(L)
10840 ENDIF
10850 NEXT L
10860 RETURN